1000 REM "[197][194][194][211] 64 [195]ONFIG [205]AKER
1010 [143] "(null)RITTEN BY VALD (null)ARRY
1020 REM "[213]PDATE : 870728
1030 :
1040 [143] "(null)IST THIS PROGRAM, SETUP
1050 REM "CONFIGS AS DESIRED THEN
1060 [143] "RUN IT TO WRITE CONFIG FILE.
1070 :
1080 MT=2:REM MODEM TYPE
1090 REM 1 = CBM'S 1650 OR COMPATIBLE
1100 REM 2 = CBM'S 1670 (300/1200)
1110 REM 3 = RS232 (ADC, CERMETEK)
1120 REM 4 = HAYES/HAYES COMPAT/MISC
1130 IFMT=1THENRI=0:CA=0:AA=0:OK=32:MS=0
1140 IFMT=2THENRI=0:CA=0:AA=1:OK=32:MS=0
1150 IFMT=3THENRI=8:CA=16:AA=0:OK=6:MS=32
1160 IFMT=4THENRI=0:CA=0:AA=1:OK=6:MS=0
1170 :
1180 REM RI=RING INDICATOR/EITHER 8/0
1190 REM CA=CARRIER DETECT/EITHER 16/0
1200 REM AA=AUTO ANSWER/0=AUTO/1=MANUAL
1210 REM OK=MODEM PRIMER/TRY 6,32 OR 38
1220 REM MS=MODEM SPEED/EITHER 32/0
1230 :
1240 OS=02:REM OPEN/CLOSED SYSTEM FLAG
1250 REM 0  = CLOSED SYSTEM
1260 REM 1  = LOOKY LOO:NO POST/EMAIL/FEEDBACK
1270 REM 2  = LOOKY LOO 2:FEEDBACK OK
1280 REM 'OS' EQUALS NEW USERS LEVEL
1290 REM SEE ALSO 'LEVELS'
1300 :
1310 REM SYSTEM LEVELS - ADD VALUES
1320 REM USE EBBS LEVEL CALC TO FIGURE
1330 REM LEVELS WHEN IN THE USERFILE EDITOR.
1340 REM ENTER '*' TO CALC A LEVEL.
1350 REM ENTER '?' TO DISPLAY ACCESS.
1360 REM FOLLOWING INFO IS FYI ONLY.
1370 :
1380 REM 0 - NO ACCESS AT ALL
1390 REM 1 - READ ONLY 1:MB1/NO POST/EMAIL
1400 REM 2 - READ ONLY 2:MB1/FEEDBACK OK
1410 REM 4 - MSG BASE 1
1420 REM 8 - MSG BASE 2
1430 REM 16 - MSG BASE 3
1440 REM 32 - MSG BASE 4
1450 REM 64 - MSG BASE 5
1460 REM 128 - XFER 1
1470 REM 256 - XFER 2
1480 REM 512 - XFER 3
1490 REM 1024 - XFER 4
1500 REM 2048 - XFER 5
1510 REM 4096 - 99 LINES/NO POST LIMIT
1520 REM 8192 - NO TIME LIMIT
1530 REM 16384 - SYSOP ACCESS
1540 :
1550 XF=0:REM XFER OPEN/CLOSED FLAG
1560 REM 0 = XFER OPEN
1570 REM 1 = XFER CLOSED
1580 :
1590 AU=1:REM UPDATE DL FILES FLAG
1600 REM 0 = UPDATE DL FILES MANUALLY
1610 REM 1 = SYSTEM UPDATES DL FILES
1620 :
1630 D1=08:REM EMAIL DRIVE
1640 :
1650 HD(1)=08:REM MSG BASE 1 DRIVE
1660 HD(2)=08:REM MSG BASE 2 DRIVE
1670 HD(3)=08:REM MSG BASE 3 DRIVE
1680 HD(4)=08:REM MSG BASE 4 DRIVE
1690 HD(5)=08:REM MSG BASE 5 DRIVE
1700 :
1710 XD(1)=08:REM XFER SECTION 1 DRIVE
1720 XD(2)=08:REM XFER SECTION 2 DRIVE
1730 XD(3)=08:REM XFER SECTION 3 DRIVE
1740 XD(4)=08:REM XFER SECTION 4 DRIVE
1750 XD(5)=08:REM XFER SECTION 5 DRIVE
1760 :
1770 REM *143 DIR ENTRYS PER DRIVE*
1780 :
1790 MB%=5:REM # OF ACTIVE MSG BASES
1800 :
1810 TD=08:REM TEXT FILES DRIVE
1820 :
1830 MM(1)=40:REM MSG BASE 1 CAPACITY
1840 MM(2)=10:REM MSG BASE 2 CAPACITY
1850 MM(3)=10:REM MSG BASE 3 CAPACITY
1860 MM(4)=10:REM MSG BASE 4 CAPACITY
1870 MM(5)=10:REM MSG BASE 5 CAPACITY
1880 :
1890 PO(1)=3:REM MAX POSTS/MB1
1900 PO(2)=2:REM MAX POSTS/MB2
1910 PO(3)=2:REM MAX POSTS/MB3
1920 PO(4)=2:REM MAX POSTS/MB4
1930 PO(5)=2:REM MAX POSTS/MB5
1940 :
1950 TL%=45:REM ONLINE TIME LIMIT
1960 :
1970 REM MSG BASE NAMES
1980 MB$(1)="[208]UBLIC [196]ISCUSSION"
1990 MB$(2)="[195]64/[195]128"
2000 MB$(3)="[208]ROGRAMMING"
2010 MB$(4)="[198]RIENDS"
2020 MB$(5)="[211]YSOPS"
2030 :
2040 REM SYSOP NAME
2050 SY$="[211][217][211][212][197][205] [207][208][197][210][193][212][207][210]"
2060 :
2070 REM BBS NAME
2080 BN$="[197][194][194][211] 64"
2090 :
2100 REM BBS CITY
2110 CI$="[197][194][194][211] [200][197][193][196][209][213][193][210][212][197][210][211]"
2120 :
2130 REM DL SECTION NAMES
2140 DL$(1)="[195]64"
2150 DL$(2)="[195]128"
2160 DL$(3)="[193][205][201][199][193]"
2170 DL$(4)="[195][208]/[205]"
2180 DL$(5)="[205][201][211][195]"
2190 :
2200 PRINT"[147]";:CR$=CHR$(13):POKE53280,6:POKE53281,1
2210 PRINT"[154]                                        ";
2220 PRINT"       [197][194][194][211] 64 [195]ONFIG [198]ILE [205]AKER        ";
2230 PRINT"                                        ";
2240 PRINT"      [197][194][194][211] 64 WRITTEN BY [197]D [208]ARRY       ";
2250 PRINT"                                        "
2260 PRINTTAB(8)"(1) [144][200]ELP/[201]NFORMATION"
2270 PRINTTAB(8)"(2) [144][215]RITE [195]ONFIG [198]ILE"
2280 PRINTTAB(8)"(3) [144][197]DIT [197][194][194][211] [195]ONFIG'S"
2290 PRINTTAB(8)"(4) [144][212]EST FOR [205]ODEM [211]ETTINGS[154]":PRINT
2300 :
2310 GETA$:IFA$=""THEN2310
2320 IFA$="1"THEN2530
2330 IFA$="2"THEN2370
2340 IFA$="3"THENLIST1000-1060:END
2350 IFA$="4"THEN2760
2360 GOTO2310
2370 PRINT" [201][206][211][197][210][212] [211][217][211][212][197][205] [198][201][204][197][211] [196][201][211][203]/[208][210][197][211][211] [210][197][212][213][210][206]"
2380 GETA$:IFA$<>CHR$(13)THEN2380
2390 PRINT"      [215]RITING [197][194][194][211] 64 CONFIG FILE"
2400 OPEN1,8,2,"@0:CFG.64,S,W":R$=CHR$(13)
2410 PRINT#1,MT:PRINT#1,RI:PRINT#1,CA:PRINT#1,AA:PRINT#1,OK
2420 PRINT#1,MS:PRINT#1,OS:PRINT#1,XF:PRINT#1,AU
2430 PRINT#1,D1:FORI=1TO5:PRINT#1,XD(I):NEXT
2440 FORI=1TO5:PRINT#1,HD(I):NEXT
2450 PRINT#1,MB%:PRINT#1,TD
2460 FORI=1TO5:PRINT#1,MM(I):NEXT
2470 FORI=1TO5:PRINT#1,PO(I):NEXT
2480 PRINT#1,TL%
2490 FORI=1TO5:PRINT#1,MB$(I):NEXT
2500 PRINT#1,SY$CR$BN$CR$CI$
2510 FORI=1TO5:PRINT#1,DL$(I):NEXT
2520 CLOSE1:PRINT"       [197][194][194][211] CONFIG FILE CREATED.":END
2530 PRINT"[147]        [156][197][194][194][211] [200][197][204][208] - [211]ETTING UP:"
2540 PRINT"1 - [210]UN 64 FILEMAKER."
2550 PRINT"2 - [204]IST/EDIT/RESAVE/RUN THIS PROGRAM."
2560 PRINT"3 - [210]UN [197][194][194][211]/[211]ETUP FILES (OB, ID, ETC)
2570 [153]"4 - (null)OOK AROUND. (null)HEN READY, GO (null)(null)(null)RIGHT$(null)VAL!"
2580 [153]"5 - (null)END BIG BUCKS/PRECIOUS METALS."
2590 [153]"VALPEEKPEEK(null) IS FREEWARE IN COMPILED FORM."
2600 [153]"(null)LEASE FEEL FREE TO PASS IT AROUND"
2610 [153]"AND/OR MAKE FREEWARE DONATIONS."
2620 [153]"VALPEEKPEEK(null) 64 BASIC CODE, ML SOURCE CODE,"
2630 [153]"DOC'S & REGISTRATION IS $40."
2640 [153]"(null)RDERS (LEN(null)STR$ (null)KAY)/(null)UESTIONS:"
2650 [153]"VALD (null)ARRY/VALPEEKPEEK(null)64"
2660 [153]"8711 (null)ANGDON (null)T. #8"
2670 [153]"(null)EPULVEDA, LENATN 91343"
2680 [153]"818-891-9350 - VOICE - 12-6PM"
2690 [153]"818-846-8083 - LEN(null)(null)VAL(null)ATN(null)(null) VALPEEKPEEK(null) (#2)":[153]"CHR$VALNIE MAILBOX :VALPEEKPEEK(null)"
2700 [153][163]8)"STOP(null)RESS (null)VAL(null)(null)(null)(null) TO CONTINUE";
2710 [161]A$:[139]A$[179][177][199](13)[167]2710
2720 [138]
2730 [159]2,8,2,"CON*,S,R"
2740 [161]#2,A$:[153]A$;:[139]ST[178]0[167]2740
2750 [160]2
2760 [143] TEST FOR MODEM SETTINGS
2770 [153]"LOADSTOP                                        ";
2780 [153]"   (null)LEASE NOTE THAT RIGHT$ CANNOT DETERMINE  ";
2790 [153]"    THE (null)ATN(null)(null) POSSIBLE COMBINATIONS OF   ";
2800 [153]" (null)(null)232 INTERFACES AND MODEMS. (null)HIS TEST ";
2810 [153]"    WILL (null)(null)(null)(null) BE AS ACCURATE AS YOUR    ";
2820 [153]"        EQUIPMENT WILL ALLOW.           ";
2830 [153]"                                        "
2840 [153]"CONTRIGHT$NSURE THAT YOUR MODEM AND/OR INTERFACE"
2850 [153]"IS PLUGGED IN AND TURNED ON.":[153][166]10)"LEFT$IT (null)VAL(null)(null)(null)(null)CONT WHEN READY"
2860 [161]A$:[139]A$[178]""[167]2860
2870 [159]1,2,3,[199](6)[170][199](0):[143] SETUP RS232 PORT
2880 A[178][194](56577)[175]8:[139]A[178]8[167]A[178]0
2890 B[178][194](56577)[175]16:[139]B[178]16[167]B[178]0
2900 C[178][194](56577)[175]32:[139]C[178]32[167]C[178]0
2910 [153]"(null)RIGHT$ - ((null)RIGHT$(null)CHR$ RIGHT$(null)STR$RIGHT$LENATN(null)(null)(null)) :"A
2920 [153]"LENATN - (LENATN(null)(null)RIGHT$VAL(null) STR$VAL(null)VALLEN(null)) :"B
2930 [153]"(null)(null) - ((null)(null)STR$VAL(null) (null)(null)VALVALSTR$)    :"C
2940 [153]"ATNATN = 0 IF LINE 12/PIN MID$ SUPPORTED"
2950 [153]"ATNATN = 1 IF LINE 12/PIN MID$ (null)(null)(null) SUPPORTED"
2960 [153]"ATNATN DETERMINES CALLERS BAUD RATE."
2970 [153]:[153][166]10)"LEFT$IT (null)VAL(null)(null)(null)(null)CONT TO CONTINUE"
2980 [161]A$:[139]A$[179][177][199](13)[167]2980
2990 [138]